home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / NAVIGATION.TCL < prev    next >
Encoding:
Text File  |  2001-12-15  |  1.3 KB  |  59 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   Navigation Artefact
  6. #
  7. #   created:    22-Jun-2000 af
  8. #   
  9. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  10. #
  11.  
  12.  
  13. # --------------------------------------------------------
  14. #                    N A V I G A T I O N
  15. # --------------------------------------------------------
  16. proc navigation_normal {} {
  17.  
  18.     # kann den Artefakt-Mode nicht verlassen. Kann nur aufgesammelt
  19.     # werden
  20.     if {[.iscollected] == "true"} {
  21.         .announcestate backpack
  22.     }
  23. }
  24.  
  25. proc navigation_backpack {} {
  26.  
  27.     # Moeglich: ausgeworfen (Nicht mehr "gesammelt"), im
  28.     # Menue gezeigt (sichtbar) oder im QuickSlot.
  29.     if {[.iscollected] == "false"} {
  30.         .announcestate normal
  31.     } elseif {[.isvisible] == "true"} {
  32.         .announcestate menue
  33.     } 
  34. }
  35.  
  36. proc navigation_usage {} {
  37.  
  38.     # fire event and remove itself
  39.     .setremoveable true
  40. }
  41.  
  42. proc navigation_menu {} {
  43.  
  44.     # Auswerfen oder Quickslot/Ruecknehmen (beides unsichtbar)
  45.     if {[.isvisible] == "false"} {
  46.         .announcestate backpack
  47.     } elseif {[.iscollected] == "false"} {
  48.         .announcestate normal
  49.     } elseif {[.getartefactuse] == "true"} {
  50.         .announcestate usage
  51.     }
  52. }
  53.  
  54. proc navigation_cinematic {} {
  55.  
  56.     # empty
  57. }    
  58.  
  59.